home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / programming / oracle7 7.2 / INSTALL / WIN95.DEI < prev    next >
Encoding:
Text File  |  1995-09-27  |  1.6 KB  |  53 lines
  1. /* Copyright (c) Oracle Corporation 1993.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     win95.dei - V3 common deinstallation script for Windows 95 products
  5.  
  6.   DESCRIPTION
  7.     This script performs common version analysis functionality across product
  8.     DEI scripts.  It returns the variable 'doit', indictating whether the
  9.     deinstallation is to proceed.
  10.  
  11.   OWNER
  12.      Kush Jain
  13.  
  14.   MODIFIED    DD-MMM-YY  Reason
  15.     sagarwal  11-JUL-95  Modified fromo nt.dei.   
  16.     kjain     18-FEB-94  Created from windows.dei.
  17. *****************************************************************************/
  18.  
  19. {
  20.   registry_label = registry_interface_label(current_registry);
  21.  
  22.   ui_product(registry_label);
  23.   ui_action(instantiate(nls("analyze_deinstall_depend",
  24.                             "Analyzing %%registry_label%% Dependencies...")));
  25.  
  26.   doit = FALSE;
  27.  
  28.   if (unreferenced(current_registry))
  29.     doit = TRUE;
  30.   else if (member(registration("selected_registries"),current_registry))
  31.     if (uniquely_self_referenced(current_registry))
  32.       doit = TRUE;
  33.     else
  34.       {
  35.     templist = registry_references(current_registry);
  36.  
  37.     extract(templist,current_registry);
  38.     subtract(templist,registration("selected_registries"));
  39.         subtract(templist,all_child_registrations(current_registry));
  40.  
  41.     if (not(empty(templist))) 
  42.       doit = yesno_dialog(instantiate(deinstall_prompt01),FALSE,
  43.                   instantiate(deinstall_content01),
  44.                   instantiate(deinstall_help01));
  45.     else
  46.       doit = TRUE;
  47.       } 
  48.  
  49.   return(doit);
  50. }
  51.  
  52.   
  53.